TP1

rm(list = ls())

1 Importation des packages

#Package à installer
#install.packages("ggstats")

library(haven)
library(tidyverse)
library(here)
library(readxl)
library(sjPlot)
library(ggplot2)
library(ggspatial)
library(sf)
library(leaflet)
library(leafem)
library(leaflet.extras)
library(RColorBrewer) 
library(htmlwidgets)
library(htmltools)
library(ggstats)

2 Préparation des données

2.1 Importation et mise en forme

#Importer la base
path <- here()
projet <- read_excel(paste0(path, "/Base_Projet.xlsx"))
#nombre de lignes et de colonnes
nbre_row <- nrow(projet) #Nombre de lignes ou d'observations
print(nbre_row)

## [1] 250

nbre_col <- ncol(projet) #Nombre de colonnes ou variables
print(nbre_col)

## [1] 33

#Presence de valeurs manquantes
table(is.na(projet$key)) 

## 
## FALSE 
##   250

 # Pas de valeurs manquantes 

3 Création de variables

#Renommer les variables
projet <- projet %>% dplyr::rename("region" = "q1", "departement" = "q2", "sexe" = "q23")

#Créer la variable sexe_2
projet <- projet %>% dplyr::mutate(sexe_2 = dplyr::recode(sexe, "Femme" = 1, .default = 0))
projet$sexe_2 <- labelled::labelled(projet$sexe_2, c(`Femme` = 1, `Homme` = 0))

# Créer la base de donnée langues
langues <- projet %>% dplyr::select("key", starts_with("q24a_"))
#Créer la variable parle
langues <- langues %>% dplyr::mutate(parle = rowSums(select(., starts_with("q24a_"))))
#Selection dse variables key et parle dans langues
langues <- langues %>% dplyr::select("key", "parle")
#merge entre projet et langues
projet_merge <- merge(projet, langues, by = "key")
#projet_merge_1 <- left_join(projet,langues, by= "key") une autre possibilité

4 Analyses descriptives

#Réprtition des PME
 #sexe
projet_merge %>% 
  plot_frq(coord.flip =T,sexe,show.na = T, geom.colors ="blue", title =c("Répartition des PME selon le niveau d’instruction"))

 #niveau d’instruction
projet_merge %>% 
  plot_frq(coord.flip =T,q25,show.na = T,
  title = c("Répartition des PME selon le niveau d’instruction"))

 #statut juridique
projet_merge %>% 
  plot_frq(coord.flip =T,q12,show.na = T, title =c("Répartition des PME selon le statut juridique"))

 #propriétaire/locataire
projet_merge %>% 
  plot_frq(coord.flip =T,q81,show.na = T,title=c("Répartition des PME selon propriétaire/locataire"))

 #statut juridique et le sexe
ggplot(projet_merge) +
 aes(x = q12, fill = sexe, group = sexe) +
 geom_bar() +
 scale_fill_manual(values = c(Femme = "#EB42CA", 
Homme = "#2C0690")) +
 labs(x = "Statut juridique", y = "Fréquence") +
 ggtitle("Répartition des PME selon le statut juridique et le sexe")+
 theme_minimal()

 #niveau d'éducation et le sexe
ggplot(projet_merge) +
 aes(x = q25, fill = sexe, group = sexe) +
 geom_bar() +
 scale_fill_manual(values = c(Femme = "#EB42CA", 
Homme = "#2C0690")) +
 labs(x = "Niveau d'éducation", y = "Fréquence") +
 ggtitle("Répartition des PME selon le niveau d'éducation et le sexe") +
 theme_minimal()

 #Propriétaire/locataire suivant le sexe
ggplot(projet_merge) +
 aes(x = sexe, fill = q81, group = q81) +
 geom_bar() +
 scale_fill_manual(values = c(Propriétaire = "#EB42CA", 
Locataire = "#2C0690")) +
 labs(x = "Sexe", y = "Fréquence") +
 ggtitle("Répartition des PME selon Propriétaire/locataire suivant le sexe") +
 theme_minimal()

Analyses :

Répartition des PME selon le sexe du dirigeant/responsable : La répartition des PME agroalimentaires selon le sexe du dirigeant ou du responsable montre une tendance significative. Sur 20 PME, 15 sont dirigées par des femmes, représentant ainsi une proportion majoritaire. Cette constatation suggère une forte présence féminine dans la gestion des PME agroalimentaires, suggérant un aspect de l’entrepreneuriat féminin dans ce secteur spécifique. Répartition des PME selon le niveau d’education dirigeant/responsable : L’analyse de la répartition montre que la quasitotalité de ces individus n’a pas dépassé le niveau secondaire. La majorité, représentant 31,6%, ne possède aucun niveau d’éducation officiellement reconnu. Parallèlement, une part significative, soit 29,6%, a atteint le niveau secondaire.

Répartition des PME selon le statut juridique : Concernant le statut juridique, Une majorité écrasante, représentant 71,6% des PME, est classée sous le statut de GIE (Groupement d’Intérêt Économique). Cette prédominance souligne l’importance des collaborations économiques et des partenariats dans ce secteur. De manière intéressante, on observe également une présence non négligeable de PME informelles, représentant 15,2% du total. En revanche, les SUARL, SARL, SA et associations sont moins fréquentes, ne représentant que 13,2%.

4.1 Fonctions pour les statitiques descriptives

    ########## Statistique descriptive univariée ########

univarie <- function(data, variable){
  obj <- data[[variable]]

  ####### Variable quantitative ########
  if (is.numeric(obj)){
    #### Statistiques descriptives ######
    summary_table <- projet %>% 
      select(variable) %>% 
        gtsummary::tbl_summary(
          type = variable ~ "continuous2", #spécifie le type de résumé
          statistic = list(variable ~ c("{mean}", "{sd}", "{median}", "{min}, {max}", "{p25}; {p75}","{N_miss}; {p_miss}")),
          digits = variable ~ 2 #précisez le nombre de décimales pour l'arrondi
           )%>% 
           gtsummary::bold_labels() # Mettre en gras les étiquettes de la variable
        summary_table
    ###### Histogramme #######
    hist(obj, 
      col = c("orange"),
      main = paste("Histogramme"),
      ylab = "Frequence",
      xlab = variable)
            
    ###### Boite à moustache #######
    boxplot(obj, col = c("blue"),main = "Boxplot", ylab =
              "Quantiles")
            
  ####### Variable qualitative ########
   } else if (!is.numeric(obj)){
    summary_table <- projet %>% 
      select(variable) %>% 
      gtsummary::tbl_summary(
        statistic = list(variable ~ "{n} ({p}%)"),
        digits = variable ~ 2 #précisez le nombre de décimales pour l'arrondi
      )%>% 
      gtsummary::bold_labels() # Mettre en gras les étiquettes de la variable
    summary_table
    barplot(table(obj), main="Diagramme en barre", 
        xlab=variable,
        col="orange")
  }
}

##### Exempele ######

 ########## Statistique descriptive bivariée ########

bivarie <- function(data, var_1, var_2 ){
  obj_1 <- data[[var_1]]
  obj_2 <- data[[var_2]]
  
  #### Deux variables quantitatives ########
  if ((is.numeric(obj_1)) && (is.numeric(obj_2))){
    ##### Tests de corrélation #####
    m <- stats::lm(as.formula(paste(var_1, "~", var_2)), data = data)
    test <- m %>%  
      gtsummary::tbl_regression() %>% #des résultats de la régression linéaire
      gtsummary::add_glance_source_note() #stats en notes du tableau
    print(test)
  ##### Nuage de points ######
   graph <- ggplot2::ggplot(data) +
    aes(x = !!rlang::sym(var_1), y = !!rlang::sym(var_2)) +
    geom_smooth(method="lm") +  # Droite de regréssion
    geom_point(colour = "blue", alpha = .25) +
    ggtitle("Nuage de points")+
    theme_light()
  graph
  }

    #### Variable quantitative et qualitative ########
  if ((is.numeric(obj_1)) && (!is.numeric(obj_2))){
  ##### tableau statistique ######
   tab <- data %>% 
      gtsummary::tbl_summary(
        include = var_1,
        by = var_2,
        type = var_1 ~ "continuous2",
        statistic = list(var_1 ~ c("{N_nonmiss}; {p_miss}", 
                            "{mean} ({sd})", "{median}","{p25}; {p75}")),
        digits = var_1 ~ 2
      ) %>% 
    gtsummary::add_p() %>%  #Ajouter p_value
    gtsummary::add_stat_label() #une étiquette pour les statistiques récapitulatives 
   ##### Boîtes à moustaches ######
   tab
    graph <- ggplot2::ggplot(data) +
      aes(x = !!rlang::sym(var_2), y = !!rlang::sym(var_1)) +
      geom_boxplot(fill = "lightblue") +
      ggtitle("Boxplot")+
      theme_light()
    graph
  }
  if (!is.numeric(obj_1) && is.numeric(obj_2)){
    errorCondition("C'est la première variable doit être numérique")
  }
  
  #### Deux variables qualitatives ########
  if (!is.numeric(obj_1) && !is.numeric(obj_2)){
  ##### tableau statistique ######
   tab <- data %>% 
      gtsummary::tbl_cross(
        col = var_1,
        row = var_2,
        percent = "cell"
      ) %>% 
    gtsummary::add_p(source_note = TRUE)   #Ajouter p_value
    tab
    
  ##### Graphes ######
    graph <- ggplot(projet) +
     aes(x = sexe, fill = q25) +
     geom_bar(position = "dodge") +
     scale_fill_hue(direction = 1) +
     labs(y = "Fréquence", caption = "Graphique") +
     theme_light()
    graph

  }
}

4.2 Analyses descriptives

#Analyse univariée
univarie(projet, "filiere_1")

univarie(projet, "filiere_2")

univarie(projet, "filiere_3")

univarie(projet, "filiere_4")

Analyse unvariée Parmi les PME enquêtées, nous observons une répartition assez diversifiée en termes d’associations dans différentes filières. En effet, 43% des PME sont impliquées dans la filière de l’arachide, tandis que seulement 24% sont impliquées dans la filière de l’anacarde. La filière de la mangue attire environ 36% des PME, tandis que la filière du riz en attire environ 37%.

Ces chiffres suggèrent une distribution inégale des PME dans les différentes filières. Cependant, il est important de noter que les pourcentages cumulés dépassent 100%, ce qui indique que certaines PME peuvent être actives dans plusieurs filières simultanément.

En exploitant Un tableaux croisé entre ces variables on peut ressortir les PME impliquées dans plusieurs filières.

prop.table(table(projet$filiere_1, (projet$filiere_2)))

##    
##         0     1
##   0 0.364 0.204
##   1 0.392 0.040

prop.table(table(projet$filiere_1, (projet$filiere_3)))

##    
##         0     1
##   0 0.324 0.244
##   1 0.320 0.112

prop.table(table(projet$filiere_1, (projet$filiere_4)))

##    
##         0     1
##   0 0.308 0.260
##   1 0.324 0.108

prop.table(table(projet$filiere_2, (projet$filiere_3)))

##    
##         0     1
##   0 0.420 0.336
##   1 0.224 0.020

prop.table(table(projet$filiere_2, (projet$filiere_4)))

##    
##         0     1
##   0 0.504 0.252
##   1 0.128 0.116

prop.table(table(projet$filiere_3, (projet$filiere_4)))

##    
##         0     1
##   0 0.368 0.276
##   1 0.264 0.092

Analyse unvariée

Nous juste allons etudier la relation entre la région et les variables sur les filière

bivarie(projet, "filiere_1", "region")
bivarie(projet, "filiere_2", "region")
bivarie(projet, "filiere_3", "region")
bivarie(projet, "filiere_4", "region")

Filière arachide Les résultats montrent que la région de Diourbel, qui compte 34 PME, se distingue par le fait que toutes les PME de cette région travaillent dans la filière de l’arachide. De manière similaire, toutes les PME des régions de Kaolack (21 PME) et de Kaffrine (9 PME) sont également impliquées dans la filière de l’arachide. Cependant, les régions de Dakar (une PME), Saint-Louis (42 PME) et Sédhiou (4 PME) ne comptent aucune PME travaillant dans la filière de l’arachide. Au contraire. Les régions de Fatick, Ziguinchor et Kolda présentent une faible proportion de PME impliquées dans la filière arachide, ce qui suggère que d’autres filières ou secteurs peuvent être prédominants dans ces régions. Enfin, dans la région de Thiès, qui compte 51 PME, on observe que la moitié de ces PME sont impliquées dans la filière arachide.

Filière anacarde Concernant la filière de l’anacarde, les régions de Diourbel, Kaffrine, Kaolack, Saint-Louis et Thiès ne présentent aucune PME active dans cette filière. En revanche, dans les régions de Kolda et Ziguinchor, on observe que 60% des PME sont impliquées dans la filière de l’anacarde. Cette activité semble être encore plus marquée dans les régions de Sédhiou et Fatick, où respectivement 80% et 70% des PME sont actives dans cette filière. Ces données suggèrent que l’anacarde est une filière importante dans les régions de Kolda, Ziguinchor, Sédhiou et Fatick, mais qu’elle n’est pas aussi significative dans les autres régions mentionnées.

ON FAIT AINSI DE SUITE POUR LES FILIERES RESTANTES En conclusion, les résultats suggèrent qu’il existe une relation significative entre la filière dans laquelle une PME est active et son emplacement géographique par rapport aux régions. Cette relation est étayée par les p-values obtenues lors de l’analyse, ce qui indique une association statistiquement significative entre ces variables.

5 cartographie

#Transformation en donnée spatial
projet_map <- st_as_sf(projet_merge, coords = c("gps_menlongitude", "gps_menlatitude"))
#verifier la class
class(projet_map)

## [1] "sf"         "data.frame"

#Definir la projection
st_crs(projet_map) <- 4326

#Carte
ggplot(projet_map) +
 aes(fill = sexe, colour = sexe) + #Variable à représenter et la différenciation de coloration
 geom_sf(size = 1.45) + # taille des points
 scale_fill_hue(direction = 1) +
 scale_color_hue(direction = 1) 

 theme_gray() #Thème pour le fond "gris" 

## List of 97
##  $ line                      :List of 6
##   ..$ colour       : chr "black"
##   ..$ linewidth    : num 0.5
##   ..$ linetype     : num 1
##   ..$ lineend      : chr "butt"
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ rect                      :List of 5
##   ..$ fill         : chr "white"
##   ..$ colour       : chr "black"
##   ..$ linewidth    : num 0.5
##   ..$ linetype     : num 1
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ text                      :List of 11
##   ..$ family       : chr ""
##   ..$ face         : chr "plain"
##   ..$ colour       : chr "black"
##   ..$ size         : num 11
##   ..$ hjust        : num 0.5
##   ..$ vjust        : num 0.5
##   ..$ angle        : num 0
##   ..$ lineheight   : num 0.9
##   ..$ margin       : 'margin' num [1:4] 0points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ title                     : NULL
##  $ aspect.ratio              : NULL
##  $ axis.title                : NULL
##  $ axis.title.x              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 2.75points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.x.top          :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 2.75points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.x.bottom       : NULL
##  $ axis.title.y              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : num 90
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 2.75points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.y.left         : NULL
##  $ axis.title.y.right        :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : num -90
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 0points 2.75points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text                 :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : chr "grey30"
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 2.2points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x.top           :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 2.2points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x.bottom        : NULL
##  $ axis.text.y               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 1
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 2.2points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.y.left          : NULL
##  $ axis.text.y.right         :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 0points 2.2points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.ticks                :List of 6
##   ..$ colour       : chr "grey20"
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ lineend      : NULL
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ axis.ticks.x              : NULL
##  $ axis.ticks.x.top          : NULL
##  $ axis.ticks.x.bottom       : NULL
##  $ axis.ticks.y              : NULL
##  $ axis.ticks.y.left         : NULL
##  $ axis.ticks.y.right        : NULL
##  $ axis.ticks.length         : 'simpleUnit' num 2.75points
##   ..- attr(*, "unit")= int 8
##  $ axis.ticks.length.x       : NULL
##  $ axis.ticks.length.x.top   : NULL
##  $ axis.ticks.length.x.bottom: NULL
##  $ axis.ticks.length.y       : NULL
##  $ axis.ticks.length.y.left  : NULL
##  $ axis.ticks.length.y.right : NULL
##  $ axis.line                 : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ axis.line.x               : NULL
##  $ axis.line.x.top           : NULL
##  $ axis.line.x.bottom        : NULL
##  $ axis.line.y               : NULL
##  $ axis.line.y.left          : NULL
##  $ axis.line.y.right         : NULL
##  $ legend.background         :List of 5
##   ..$ fill         : NULL
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ legend.margin             : 'margin' num [1:4] 5.5points 5.5points 5.5points 5.5points
##   ..- attr(*, "unit")= int 8
##  $ legend.spacing            : 'simpleUnit' num 11points
##   ..- attr(*, "unit")= int 8
##  $ legend.spacing.x          : NULL
##  $ legend.spacing.y          : NULL
##  $ legend.key                :List of 5
##   ..$ fill         : chr "grey95"
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ legend.key.size           : 'simpleUnit' num 1.2lines
##   ..- attr(*, "unit")= int 3
##  $ legend.key.height         : NULL
##  $ legend.key.width          : NULL
##  $ legend.text               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ legend.text.align         : NULL
##  $ legend.title              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ legend.title.align        : NULL
##  $ legend.position           : chr "right"
##  $ legend.direction          : NULL
##  $ legend.justification      : chr "center"
##  $ legend.box                : NULL
##  $ legend.box.just           : NULL
##  $ legend.box.margin         : 'margin' num [1:4] 0cm 0cm 0cm 0cm
##   ..- attr(*, "unit")= int 1
##  $ legend.box.background     : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ legend.box.spacing        : 'simpleUnit' num 11points
##   ..- attr(*, "unit")= int 8
##  $ panel.background          :List of 5
##   ..$ fill         : chr "grey92"
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ panel.border              : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ panel.spacing             : 'simpleUnit' num 5.5points
##   ..- attr(*, "unit")= int 8
##  $ panel.spacing.x           : NULL
##  $ panel.spacing.y           : NULL
##  $ panel.grid                :List of 6
##   ..$ colour       : chr "white"
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ lineend      : NULL
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ panel.grid.major          : NULL
##  $ panel.grid.minor          :List of 6
##   ..$ colour       : NULL
##   ..$ linewidth    : 'rel' num 0.5
##   ..$ linetype     : NULL
##   ..$ lineend      : NULL
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ panel.grid.major.x        : NULL
##  $ panel.grid.major.y        : NULL
##  $ panel.grid.minor.x        : NULL
##  $ panel.grid.minor.y        : NULL
##  $ panel.ontop               : logi FALSE
##  $ plot.background           :List of 5
##   ..$ fill         : NULL
##   ..$ colour       : chr "white"
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ plot.title                :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 1.2
##   ..$ hjust        : num 0
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 5.5points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.title.position       : chr "panel"
##  $ plot.subtitle             :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 5.5points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.caption              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : num 1
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 5.5points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.caption.position     : chr "panel"
##  $ plot.tag                  :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 1.2
##   ..$ hjust        : num 0.5
##   ..$ vjust        : num 0.5
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.tag.position         : chr "topleft"
##  $ plot.margin               : 'margin' num [1:4] 5.5points 5.5points 5.5points 5.5points
##   ..- attr(*, "unit")= int 8
##  $ strip.background          :List of 5
##   ..$ fill         : chr "grey85"
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ strip.background.x        : NULL
##  $ strip.background.y        : NULL
##  $ strip.clip                : chr "inherit"
##  $ strip.placement           : chr "inside"
##  $ strip.text                :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : chr "grey10"
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 4.4points 4.4points 4.4points 4.4points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.text.x              : NULL
##  $ strip.text.x.bottom       : NULL
##  $ strip.text.x.top          : NULL
##  $ strip.text.y              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : num -90
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.text.y.left         :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : num 90
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.text.y.right        : NULL
##  $ strip.switch.pad.grid     : 'simpleUnit' num 2.75points
##   ..- attr(*, "unit")= int 8
##  $ strip.switch.pad.wrap     : 'simpleUnit' num 2.75points
##   ..- attr(*, "unit")= int 8
##  - attr(*, "class")= chr [1:2] "theme" "gg"
##  - attr(*, "complete")= logi TRUE
##  - attr(*, "validate")= logi TRUE

#Ajout des axes, titre, légende, orientation, échelle etc..
ggplot(projet_map) +
 aes(fill = sexe, colour = sexe) + 
 geom_sf(size = 2) + 
 scale_fill_hue(direction = 1) +
 scale_color_hue(direction = 1) +
  #Titre
 ggtitle("Répartition spatiale des PME selon le sexe") +
 #Nom des axes
 labs(x = "X", y = "Y") +
  #Ajouter l'echelle en bas et à droite (br)
 annotation_scale(location = "br", width_hint = 0.5) + 
  #Ajouter de l'orientation en haut à droite(tr)
 annotation_north_arrow(location = "tr", which_north = "true",      
 style = north_arrow_fancy_orienteering)

 theme_gray()

## List of 97
##  $ line                      :List of 6
##   ..$ colour       : chr "black"
##   ..$ linewidth    : num 0.5
##   ..$ linetype     : num 1
##   ..$ lineend      : chr "butt"
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ rect                      :List of 5
##   ..$ fill         : chr "white"
##   ..$ colour       : chr "black"
##   ..$ linewidth    : num 0.5
##   ..$ linetype     : num 1
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ text                      :List of 11
##   ..$ family       : chr ""
##   ..$ face         : chr "plain"
##   ..$ colour       : chr "black"
##   ..$ size         : num 11
##   ..$ hjust        : num 0.5
##   ..$ vjust        : num 0.5
##   ..$ angle        : num 0
##   ..$ lineheight   : num 0.9
##   ..$ margin       : 'margin' num [1:4] 0points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ title                     : NULL
##  $ aspect.ratio              : NULL
##  $ axis.title                : NULL
##  $ axis.title.x              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 2.75points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.x.top          :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 2.75points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.x.bottom       : NULL
##  $ axis.title.y              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : num 90
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 2.75points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.title.y.left         : NULL
##  $ axis.title.y.right        :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : num -90
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 0points 2.75points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text                 :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : chr "grey30"
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 2.2points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x.top           :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : num 0
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 2.2points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.x.bottom        : NULL
##  $ axis.text.y               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 1
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 2.2points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.y.left          : NULL
##  $ axis.text.y.right         :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 0points 2.2points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.ticks                :List of 6
##   ..$ colour       : chr "grey20"
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ lineend      : NULL
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ axis.ticks.x              : NULL
##  $ axis.ticks.x.top          : NULL
##  $ axis.ticks.x.bottom       : NULL
##  $ axis.ticks.y              : NULL
##  $ axis.ticks.y.left         : NULL
##  $ axis.ticks.y.right        : NULL
##  $ axis.ticks.length         : 'simpleUnit' num 2.75points
##   ..- attr(*, "unit")= int 8
##  $ axis.ticks.length.x       : NULL
##  $ axis.ticks.length.x.top   : NULL
##  $ axis.ticks.length.x.bottom: NULL
##  $ axis.ticks.length.y       : NULL
##  $ axis.ticks.length.y.left  : NULL
##  $ axis.ticks.length.y.right : NULL
##  $ axis.line                 : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ axis.line.x               : NULL
##  $ axis.line.x.top           : NULL
##  $ axis.line.x.bottom        : NULL
##  $ axis.line.y               : NULL
##  $ axis.line.y.left          : NULL
##  $ axis.line.y.right         : NULL
##  $ legend.background         :List of 5
##   ..$ fill         : NULL
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ legend.margin             : 'margin' num [1:4] 5.5points 5.5points 5.5points 5.5points
##   ..- attr(*, "unit")= int 8
##  $ legend.spacing            : 'simpleUnit' num 11points
##   ..- attr(*, "unit")= int 8
##  $ legend.spacing.x          : NULL
##  $ legend.spacing.y          : NULL
##  $ legend.key                :List of 5
##   ..$ fill         : chr "grey95"
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ legend.key.size           : 'simpleUnit' num 1.2lines
##   ..- attr(*, "unit")= int 3
##  $ legend.key.height         : NULL
##  $ legend.key.width          : NULL
##  $ legend.text               :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ legend.text.align         : NULL
##  $ legend.title              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ legend.title.align        : NULL
##  $ legend.position           : chr "right"
##  $ legend.direction          : NULL
##  $ legend.justification      : chr "center"
##  $ legend.box                : NULL
##  $ legend.box.just           : NULL
##  $ legend.box.margin         : 'margin' num [1:4] 0cm 0cm 0cm 0cm
##   ..- attr(*, "unit")= int 1
##  $ legend.box.background     : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ legend.box.spacing        : 'simpleUnit' num 11points
##   ..- attr(*, "unit")= int 8
##  $ panel.background          :List of 5
##   ..$ fill         : chr "grey92"
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ panel.border              : list()
##   ..- attr(*, "class")= chr [1:2] "element_blank" "element"
##  $ panel.spacing             : 'simpleUnit' num 5.5points
##   ..- attr(*, "unit")= int 8
##  $ panel.spacing.x           : NULL
##  $ panel.spacing.y           : NULL
##  $ panel.grid                :List of 6
##   ..$ colour       : chr "white"
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ lineend      : NULL
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ panel.grid.major          : NULL
##  $ panel.grid.minor          :List of 6
##   ..$ colour       : NULL
##   ..$ linewidth    : 'rel' num 0.5
##   ..$ linetype     : NULL
##   ..$ lineend      : NULL
##   ..$ arrow        : logi FALSE
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_line" "element"
##  $ panel.grid.major.x        : NULL
##  $ panel.grid.major.y        : NULL
##  $ panel.grid.minor.x        : NULL
##  $ panel.grid.minor.y        : NULL
##  $ panel.ontop               : logi FALSE
##  $ plot.background           :List of 5
##   ..$ fill         : NULL
##   ..$ colour       : chr "white"
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ plot.title                :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 1.2
##   ..$ hjust        : num 0
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 5.5points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.title.position       : chr "panel"
##  $ plot.subtitle             :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : num 0
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 0points 0points 5.5points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.caption              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : num 1
##   ..$ vjust        : num 1
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 5.5points 0points 0points 0points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.caption.position     : chr "panel"
##  $ plot.tag                  :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : 'rel' num 1.2
##   ..$ hjust        : num 0.5
##   ..$ vjust        : num 0.5
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ plot.tag.position         : chr "topleft"
##  $ plot.margin               : 'margin' num [1:4] 5.5points 5.5points 5.5points 5.5points
##   ..- attr(*, "unit")= int 8
##  $ strip.background          :List of 5
##   ..$ fill         : chr "grey85"
##   ..$ colour       : logi NA
##   ..$ linewidth    : NULL
##   ..$ linetype     : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_rect" "element"
##  $ strip.background.x        : NULL
##  $ strip.background.y        : NULL
##  $ strip.clip                : chr "inherit"
##  $ strip.placement           : chr "inside"
##  $ strip.text                :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : chr "grey10"
##   ..$ size         : 'rel' num 0.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : 'margin' num [1:4] 4.4points 4.4points 4.4points 4.4points
##   .. ..- attr(*, "unit")= int 8
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.text.x              : NULL
##  $ strip.text.x.bottom       : NULL
##  $ strip.text.x.top          : NULL
##  $ strip.text.y              :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : num -90
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.text.y.left         :List of 11
##   ..$ family       : NULL
##   ..$ face         : NULL
##   ..$ colour       : NULL
##   ..$ size         : NULL
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : num 90
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi TRUE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ strip.text.y.right        : NULL
##  $ strip.switch.pad.grid     : 'simpleUnit' num 2.75points
##   ..- attr(*, "unit")= int 8
##  $ strip.switch.pad.wrap     : 'simpleUnit' num 2.75points
##   ..- attr(*, "unit")= int 8
##  - attr(*, "class")= chr [1:2] "theme" "gg"
##  - attr(*, "complete")= logi TRUE
##  - attr(*, "validate")= logi TRUE

5.1 Utilisation shapefile Senegal

5.1.1 Importation

#Importation
Sen_path <- paste0(path, "/Sénégal")
SEN_adm0 <- read_sf(paste0(Sen_path, "/gadm41_SEN_0.shp"))
SEN_adm1 <- read_sf(paste0(Sen_path, "/gadm41_SEN_1.shp"))
SEN_adm2 <- read_sf(paste0(Sen_path, "/gadm41_SEN_2.shp"))
SEN_adm3 <- read_sf(paste0(Sen_path, "/gadm41_SEN_3.shp"))

###Représentation graphique des decoupages administrative

 #Sénégal 

ggplot(SEN_adm0) +
 aes(fill = COUNTRY) +
 geom_sf(size = 1.2) +
 scale_fill_manual(values = c(Senegal = "#96E431")) +
 annotation_scale(location = "bl", width_hint = 0.5) + 
 annotation_north_arrow(location = "tr", which_north = "true",    
 style = north_arrow_fancy_orienteering)+
 ggtitle("Carte du Sénégal") +
 labs(fill = "Pays") +
 theme_minimal()

  #Sénégal Régions 
ggplot(SEN_adm1) +
 aes(fill = NAME_1) +
 geom_sf(size = 1.2) +
 scale_fill_hue(direction = 1) +
 labs(fill = "Région") +
 annotation_scale(location = "bl", width_hint = 0.5) + 
 annotation_north_arrow(location = "tr", which_north = "true",    
 style = north_arrow_fancy_orienteering)+
 ggtitle("Région du Sénégal") +
 theme_minimal()

  #Sénégal départements 
ggplot() +
  geom_sf(data = SEN_adm2, aes(fill = NAME_2)) +
  geom_sf_text(data = SEN_adm2, aes(label = NAME_2), size = 1.5,    color = "black") +
  scale_fill_manual(values =      rainbow(length(unique(SEN_adm2$NAME_2)))) + # Utiliser des couleurs différentes pour chaque département
  labs(fill = "Départements") +
  ggtitle("Départements du Sénégal") +
  theme_minimal()+
  theme(legend.position = "none")#Ne pas afficher la légende

#Sénégal Communes
ggplot() +
  geom_sf(data = SEN_adm3, aes(fill = NAME_3)) +
  geom_sf_text(data = SEN_adm3, aes(label = NAME_3), size = 1,    color = "black") +
  scale_fill_manual(values =      rainbow(length(unique(SEN_adm3$NAME_3)))) + # Utiliser des couleurs différentes pour chaque département
  labs(fill = "Départements") +
  ggtitle("Départements du Sénégal") +
  theme_minimal()+
  theme(legend.position = "none")#Ne pas afficher la légende

# Pour une meilleure représentation des départements et des communes, on peut utiliser leaflet (carte dynamique)

  #Sénégal Département
#Ici On crée un "vecteur de couleur" avec une pallette de couleur (set3) qui contient 12 couleur. 
random_colors <- sample(brewer.pal(n = 12, name = "Set3"), size = nrow(SEN_adm2), replace = TRUE)

carte <-leaflet(SEN_adm2) %>%
  addTiles()  %>%  # Ajout de la carte openstreet map par défaut
  addPolygons( 
    fillColor = random_colors,
    color = "red",
    weight = 1,
    opacity = 2,
    fillOpacity = 0.7,
    highlightOptions = highlightOptions(
      color= "red",
      weight = 2,
      bringToFront = TRUE
    ),
    label = ~as.character(NAME_2)
  ) %>% 
addMouseCoordinates()%>%  # Ajout des coordonnées GPS du pointeur de la souris
addResetMapButton()%>%  # Recentrer la carte
addFullscreenControl()%>%  #ajout du basculement en mode plein écran
addSearchOSM()%>%  #ajout de la barre de recherche Openstreetmap
addMeasure(position = "topleft",              #mesure des distances
           primaryLengthUnit = "kilometers",
           secondaryAreaUnit = FALSE)%>% 
addScaleBar(       #ajout de l'échelle
  position = "bottomleft" 
)%>% 
addMiniMap(
  toggleDisplay = TRUE) #  minimap


  #Sénégal Communes
random_colors_1 <- sample(brewer.pal(n = 12, name = "Set3"), size = nrow(SEN_adm3), replace = TRUE)

carte_1 <- leaflet(SEN_adm3) %>%
  addTiles()  %>%  # Ajout de la carte openstreet map par défaut
  addPolygons( 
    fillColor = random_colors_1,
    color = "red",
    weight = 1,
    opacity = 2,
    fillOpacity = 0.7,
    highlightOptions = highlightOptions(
      color= "red",
      weight = 2,
      bringToFront = TRUE
    ),
    label = ~as.character(NAME_3)
  ) %>% 
addMouseCoordinates()%>%  # Ajout des coordonnées GPS du pointeur de la souris
addResetMapButton()%>%  # Recentrer la carte
addFullscreenControl()%>%  #ajout du basculement en mode plein écran
addSearchOSM()%>%  #ajout de la barre de recherche Openstreetmap
addMeasure(position = "topleft",              #mesure des distances
           primaryLengthUnit = "kilometers",
           secondaryAreaUnit = FALSE)%>% 
addScaleBar(       #ajout de l'échelle
  position = "bottomleft" 
)%>% 
addMiniMap(
  toggleDisplay = TRUE) #  minimap

carte

carte_1

5.1.2 Representation spatiale des PME suivant le sexe du dirigeant/responsable

ggplot() +
  geom_sf(data = SEN_adm0, fill = "white", color = "black") + #Ajouter la couche du Sénégal
  geom_sf(data = projet_map, aes(fill = sexe, color = sexe), size = 1.45) + #Ajouter les points(PME)
  scale_fill_hue(name = "Sexe") +
  scale_color_hue(name = "Sexe") +
  ggtitle("Représentation spatiale des PME suivant le sexe du dirigeant/responsable") +
  annotation_scale(location = "tl", width_hint = 0.2) + 
 annotation_north_arrow(location = "tr", which_north = "true",      
 style = north_arrow_fancy_orienteering)+
  theme_minimal()

#Régions
ggplot() +
  geom_sf(data = SEN_adm1, fill = "white", color = "black") + # Ajouter la       couche du Sénégal
  geom_sf_label(data = SEN_adm1, aes(label = NAME_1), size=1.5) + # Ajouter les noms des régions
  #Ajouter les points(PME)
  geom_sf(data = projet_map, aes(fill = sexe, color = sexe), size = 1.45)+
  scale_fill_hue(name = "Sexe") +
  scale_color_hue(name = "Sexe") +
  ggtitle("Représentation spatiale des PME suivant le sexe du dirigeant/responsable") +
  annotation_scale(location = "tl", width_hint = 0.2) + 
 annotation_north_arrow(location = "tr", which_north = "true",      
 style = north_arrow_fancy_orienteering)+
  theme_minimal()

title_1 <- tags$div(
  ("Répartition spatiale des PME selon le sexe du dirigeant/responsable")
)
#Département
pal <- colorFactor(c("blue", "red"), levels = projet_map$sexe)
carte_2 <- leaflet(SEN_adm2) %>%
  addTiles()  %>%  # Ajout de la carte openstreet map par défaut
  addPolygons( 
    fillColor = "transparent",
    color = "black",
    weight = 1,
    opacity = 1,
    fillOpacity = 0.7,
    highlightOptions = highlightOptions(
      color= "green",
      weight = 2,
      bringToFront = TRUE
    ),
    label = ~paste0(as.character(NAME_2)," ; ", as.character(NAME_1))
  ) %>% 
addCircleMarkers(data = projet_map,
                 color = ~pal(sexe), radius=0.7) %>% #Ajouter les PME
addMouseCoordinates()%>%  # Ajout des coordonnées GPS du pointeur de la souris
addResetMapButton()%>%  # Recentrer la carte
addFullscreenControl()%>%  #ajout du basculement en mode plein écran
addSearchOSM()%>%  #ajout de la barre de recherche Openstreetmap
addMeasure(position = "topleft",              #mesure des distances
           primaryLengthUnit = "kilometers",
           secondaryAreaUnit = FALSE)%>% 
addScaleBar(       #ajout de l'échelle
  position = "bottomleft" 
)%>% 
addLegend(data = projet_map,
          position = "topright",
          pal = pal, values = ~sexe,
          title = "Legende",
          opacity = 1) %>% 
addControl(title_1, position = "bottomleft") %>%
addMiniMap(
  toggleDisplay = TRUE) #  minimap

#Communes
carte_3 <- leaflet(SEN_adm3) %>%
  addTiles()  %>% 
  addPolygons( 
    fillColor = "transparent",
    color = "black",
    weight = 1,
    opacity = 1,
    fillOpacity = 0.7,
    highlightOptions = highlightOptions(
      color= "green",
      weight = 2,
      bringToFront = TRUE
    ),
    label = ~paste0(as.character(NAME_3), " ; ", as.character(NAME_2)," ; ", as.character(NAME_1))
  ) %>% 
addCircleMarkers(data = projet_map,
                 color = ~pal(sexe), radius=0.7) %>% 
addMouseCoordinates()%>%
addResetMapButton()%>%  
addFullscreenControl()%>% 
addSearchOSM()%>%  
addMeasure(position = "topleft",  
           primaryLengthUnit = "kilometers",
           secondaryAreaUnit = FALSE)%>% 
addScaleBar(    
  position = "bottomleft" 
)%>% 
addLegend(data = projet_map,
          position = "topright",
          pal = pal, values = ~sexe,
          title = "Legende",
          opacity = 1) %>% 
addControl(title_1, position = "bottomleft") %>%
addMiniMap(
  toggleDisplay = TRUE) 

carte_2

carte_3

####### Representation spatiale des PME suivant le niveau d'éducation #######
ggplot() +
  geom_sf(data = SEN_adm0, fill = "white", color = "black") + #Ajouter la couche du Sénégal
  geom_sf(data = projet_map, aes(fill = q25, color = q25), size = 1.45) + #Ajouter les points(PME)
  scale_fill_hue(name = "Niveau d'éducation") +
  scale_color_hue(name = "Niveau d'éducation") +
  ggtitle("Représentation spatiale des PME suivant le niveau d'éducation") +
  annotation_scale(location = "tl", width_hint = 0.2) + 
 annotation_north_arrow(location = "tr", which_north = "true",      
 style = north_arrow_fancy_orienteering)+
  theme_minimal()

#Régions
ggplot() +
  geom_sf(data = SEN_adm1, fill = "white", color = "black") + # Ajouter la       couche du Sénégal
  geom_sf_label(data = SEN_adm1, aes(label = NAME_1), size=1.5) + # Ajouter les noms des régions
  #Ajouter les points(PME)
  geom_sf(data = projet_map, aes(fill = q25, color = q25), size = 1.45)+
  scale_fill_hue(name = "Niveau d'éducation") +
  scale_color_hue(name = "Niveau d'éducation") +
  ggtitle("Représentation spatiale des PME suivant le niveau d'éducation") +
  annotation_scale(location = "tl", width_hint = 0.2) + 
 annotation_north_arrow(location = "tr", which_north = "true",      
 style = north_arrow_fancy_orienteering)+
theme_minimal()

title <- tags$div(
  ("Répartition spatiale des PME selon le niveau d'éducation du dirigeant/responsable")
) 
#Département
pal_1 <- colorFactor(c("#FF5733", "#008080","#0000FF","#581845"), levels = projet_map$q25)
carte_4 <- leaflet(SEN_adm2) %>%
  addTiles()  %>%  # Ajout de la carte openstreet map par défaut
  addPolygons( 
    fillColor = "transparent",
    color = "black",
    weight = 1,
    opacity = 1,
    fillOpacity = 0.7,
    highlightOptions = highlightOptions(
      color= "green",
      weight = 2,
      bringToFront = TRUE
    ),
    label = ~paste0(as.character(NAME_2)," ; ", as.character(NAME_1))
  ) %>% 
addCircleMarkers(data = projet_map,
                 color = ~pal_1(q25), radius=0.7) %>% 
addMouseCoordinates()%>% 
addResetMapButton()%>%
addFullscreenControl()%>%  
addSearchOSM()%>%  
addMeasure(position = "topleft",             
           primaryLengthUnit = "kilometers",
           secondaryAreaUnit = FALSE)%>% 
addScaleBar(      
  position = "bottomleft" 
)%>% 
addLegend(data = projet_map,
          position = "topright",
          pal = pal_1, values = ~q25,
          title = "Legende",
          opacity = 1) %>% 
addControl(title, position = "bottomleft") %>% 
addMiniMap(
  toggleDisplay = TRUE)

#Communes
carte_5 <- leaflet(SEN_adm3) %>%
  addTiles()  %>% 
  addPolygons( 
    fillColor = "transparent",
    color = "black",
    weight = 1,
    opacity = 1,
    fillOpacity = 0.7,
    highlightOptions = highlightOptions(
      color= "green",
      weight = 2,
      bringToFront = TRUE
    ),
    label = ~paste0(as.character(NAME_3), " ; ", as.character(NAME_2)," ; ", as.character(NAME_1))
  ) %>% 
addCircleMarkers(data = projet_map,
                 color = ~pal_1(q25), radius=0.7) %>% 
addMouseCoordinates()%>%
addResetMapButton()%>%  
addFullscreenControl()%>% 
addSearchOSM()%>%  
addMeasure(position = "topleft",  
           primaryLengthUnit = "kilometers",
           secondaryAreaUnit = FALSE)%>% 
addScaleBar(    
  position = "bottomleft" 
)%>% 
addLegend(data = projet_map,
          position = "topright",
          pal = pal_1, values = ~q25,
          title = "Legende",
          opacity = 1) %>% 
addControl(title, position = "bottomleft") %>% 
addMiniMap(
  toggleDisplay = TRUE) 
carte_4

carte_5

5.1.3 Analyse de le répartition spatiale des PME agroalimentaires au Sénégal

La cartographie de la répartition des PME agroalimentaires révèle une concentration significative dans les régions de Dakar et Thiès, s’étendant vers le centre du pays, notamment dans les régions de Fatick et Kaolack. Des poches d’activité sont également observées dans le sud, principalement à Ziguinchor, et dans le nord, à Saint-Louis. En revanche, les régions de l’est du pays c’est desert en termes de présence de PME agroalimentaires.

Une exploration plus détaillée des disparités de répartition au niveau des départements met en lumière une agglomération des PME agroalimentaires, notamment dans les départements de Mbour, Thiès, Ziguinchor, Dagana et Bambey. Une caractéristique notable est la forte implication des femmes dans la gestion de ces entreprises, ce qui souligne leur rôle crucial dans le tissu entrepreneurial local.

Plusieurs facteurs peuvent expliquer ces tendances. Outre la proximité des marchés et des infrastructures de soutien, des variables telles que l’accès aux ressources agricoles, les politiques de développement économique régional, et le niveau d’éducation et de formation des entrepreneurs jouent un rôle crucial.